Mi Zhang, Peng Liu, Yuanming Leng, Qiannan Shen
plot1("MEASURED IN LB")
p4 <- plot4("MEASURED IN LB", "CALIFORNIA") ggplotly(p4, tooltip="y")
p4 <- plot4("MEASURED IN LB", "FLORIDA") ggplotly(p4, tooltip="y")
p5 <- plot5("MEASURED IN LB","Bee.Toxins","CALIFORNIA") ggplotly(p5, tooltip="y")
p5 <- plot5("MEASURED IN LB","Bee.Toxins","FLORIDA") ggplotly(p5, tooltip="y")